Top 10k strings from Superdraw (1982)(Video Software)(16k).z80 in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Utilities & Educational / Sinclair ZX Spectrum - Utilities & Educational - [Z80] (TOSEC-v2007-01-01) /

Back to the directory listing

   3 unplot=one:
   3 +(n+one)/2
   2 x$(offset)="-")
   2 one,zero;"Sorry out of range":
   2 b$=a$(letter)
   2 "alphabet"
   1 zero,zero;"Type line of text or graphics";
   1 zero,zero;"Type line of big letters";
   1 zero,zero;"Start recorder and type ENTER.";l$
   1 zero,zero;"Start recorder and type ENTER";r$
   1 zero,zero;"Return to menu (y/n)?";l$
   1 zero,zero;"READY TO SAVE PICTURE";
   1 zero,zero;"Paper colour code:";l$
   1 zero,zero;"PICTURE LOADED.";
   1 zero,zero;"LOADING PICTURES IN SEQUENCE";
   1 zero,zero;"LOADING BY NAME";
   1 zero,zero;"Ink colour code:";l$
   1 zero,zero;
   1 zero,clim;
   1 yy=yy+(yy<ylim
   1 yy=ylim-(row*tran)
   1 y$="++--0-+0"
   1 y$(offset)="-")-(row>zero
   1 y$(offset)="-")
   1 y$(offset)="+")-(yy>zero
   1 y$(offset)="+")
   1 xx=xx+(xx<xlim
   1 xx=col*tran:
   1 xx-pxx,yy-pyy
   1 x$="-++--00+":
   1 x$(offset)="+")-(xx>zero
   1 x$(offset)="+")-(col>zero
   1 unplot=zero:
   1 unplot,xx,yy
   1 superdraw 
   1 status=2900
   1 sequence=5000
   1 scanb=row-scana*8
   1 scana=scana*2048
   1 row=row+(row<rlim
   1 row,bcol;b$(one
   1 row+one,bcol;b$(3
   1 pxx,pyy,hyp
   1 print=2200
   1 plotter=170
   1 plot=zero:
   1 plot,xx,yy
   1 papset=2400
   1 one;xx,yy:
   1 one;pxx,pyy
   1 one,zero;"What is picture name? ";l$
   1 one,zero;"Time interval (seconds):";secs;
   1 one,zero;"Name of picture:";l$
   1 one,zero;"Do you wish to amend? (y/n)";l$
   1 one,one;"SUPERDRAW16   MENU OF OPTIONS"
   1 offset=row*32
   1 offset=(oldr*32
   1 l$+one)<clim))
   1 inkset=2300
   1 function=2000
   1 flash=zero:
   1 flash=zero
   1 flash;(" "
   1 f$="o")+("
   1 display=16384
   1 decode=300
   1 datum=1100
   1 datum+offset*10
   1 cursor=500
   1 control=1000
   1 col=col+(col<clim
   1 col=col+((c$
   1 clim-col+one)
   1 circle=2500
   1 change=zero
   1 bright=zero:
   1 bright;m$:
   1 bcol=col+(n-one)*2
   1 attr=22528
   1 alphabet=7000
   1 a=(bright*64
   1 a$(letter)=b$
   1 Initialise
   1 @BB@BDBBB(@
   1 <<@~BxBB$><
   1 ,zero;"Number of pictures: ";pics;
   1 ,bcol;b$(5
   1 +ink)*change+(
   1 +col),poke:
   1 (scana+n*256
   1 (pyy-yy)^2
   1 (pyy-hyp)<zero
   1 (pyy+hyp)>ylim
   1 (pxx-xx)^2
   1 (pxx-hyp)<zero
   1 (pxx+hyp)>xlim
   1 (attr+row*32
   1 (attr+offset),a-128
   1 (attr+offset),a+flash*(128
   1 (attr+offset),(128
   1 (attr+offset)*
   1 (attr+offset)
   1 (attr+clim)
   1 ((ylim-yy)/8
   1 ((clim-col+one)/2
   1 "Your selection (1/2/3...7):";l$
   1 "Not enough room - press ENTER";l$:
   1 "Letter or digit:";e$
   1 "Is that correct (y/n)?";l$
   1 "INPUT BIG LETTERS"
   1 "Character pair:";l$
   1 "All finished (y/n)?";l$
   1 "7.  Load large alphabet."
   1 "6.  Save large alphabet."
   1 "5.  Make large alphabet"
   1 "4.  Load pictures in sequence."
   1 "3.  Load the next picture."
   1 "2.  Load a named picture."
   1 "1.  Draw a new picture."
   1  VIDEO Software Ltd.